unit uSAF0000_04;

interface

uses
   Windows,
   Messages,
   SysUtils,
   Variants,
   Classes,
   Graphics,
   Controls,
   Forms,
   Dialogs,
   StdCtrls,
   FileCtrl,
   IdFTP;

type
   TfrmAtualizaWOS = class(TForm)
      lblLocal: TLabel;
      fllstLocal: TFileListBox;
      mmo1: TMemo;
      procedure lblLocalClick(Sender: TObject);
      procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
      { Private declarations }
   public
      { Public declarations }
   end;

var
   frmAtualizaWOS: TfrmAtualizaWOS;

implementation

uses
   uLibGlobal;

{$R *.dfm}

procedure TfrmAtualizaWOS.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action := caFree;
end;

procedure TfrmAtualizaWOS.lblLocalClick(Sender: TObject);
var
   sAux: string;
   nomeArquivo: string;
   versaoArquivo: string;
   iArquivoLocal: integer;
   dataArquivoLocal: TDateTime;

   ftp: TIdFTP;
   ftpServidor: string;
   ftpPorta: integer;
   ftpUsuario: string;
   ftpSenha: string;
   ftpCaminhoArquivoWOS: string;

   dataArquivoRemoto: TDateTime;
begin
   mmo1.Clear;

   fllstLocal.Directory := ExtractFileDir(fCaminhoSistema);
   nomeArquivo := fllstLocal.Items.Strings[fllstLocal.ItemIndex];

   mmo1.Lines.Add('Nome do Arquivo: ' + nomeArquivo);

   iArquivoLocal := FileAge(fCaminhoSistema + '\' + nomeArquivo);
   dataArquivoLocal := FileDateToDateTime(iArquivoLocal);
   mmo1.Lines.Add('Data do Arquivo Local: ' + FormatDateTime('yyyy.mm.dd hh:nn:ss:zzz', dataArquivoLocal));

   //sAux := fArquivoPropriedade(fCaminhoSistema + '\' + (nomeArquivo), 'FileVersion');
   //versaoArquivo := fArquivoVersao(sAux);

   ftpServidor := fLerIni('', 'FTP', 'SERVIDOR');
   ftpPorta := fLerIniInteger('', 'FTP', 'PORTA');
   ftpUsuario := fLerIni('', 'FTP', 'USUARIO');
   ftpSenha := fLerIni('', 'FTP', 'SENHA');
   ftpCaminhoArquivoWOS := fLerIni('', 'FTP', 'ARQUIVOWOS');

   ftp := TIdFTP.Create(Self);

   ftp.Host := ftpServidor;
   ftp.Port := ftpPorta;
   ftp.Username := ftpUsuario;
   ftp.Password := ftpSenha;

   try
      ftp.Connect;
      mmo1.Lines.Add('conectando..');

      if ftp.Connected then
      begin
         mmo1.Lines.Add('conectado em ' + ftp.Host);

         ftp.ChangeDir(ftpCaminhoArquivoWOS);

         mmo1.Lines.Add('caminho: ' + ftpCaminhoArquivoWOS+'/'+nomeArquivo);

         dataArquivoRemoto := ftp.FileDate(nomeArquivo, False);
         mmo1.Lines.Add('Data do Arquivo Remoto: ' + FormatDateTime('yyyy.mm.dd hh:nn:ss:zzz', dataArquivoRemoto));
      end;
   except
      on E: Exception do
      begin
         ftp.Disconnect;
      end;
   end;

   FreeAndNil(ftp);
end;

end.

